home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 242 / 242.d81 / b.real sounds (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  117 lines
  1. 10 print"[147]":poke53280,0:poke53281,0:poke646,1:poke53272,22
  2. 11 printtab(10)"[210][197][193][204] [211][207][213][206][196][211] [196]emo"
  3. 20 poke214,3:print:a=10
  4. 21 printtab(a)"1 [204]ight & [212]hunder"
  5. 22 printtab(a)"2 [215]ind"
  6. 23 printtab(a)"3 [201]nsects"
  7. 24 printtab(a)"4 [193]uto [200]orn
  8. 25 [153][163]a)"5 (NULL)arning peekell"
  9. 26 [153][163]a)"6 (NULL)team valngine
  10. 27 printtab(a)"7 [202]et [208]lane
  11. 28 [153][163]a)"8 lenhimes
  12. 29 printtab(a)"9 [194]uzzer
  13. 30 [153][163]a)"(NULL) (NULL)uit to (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)
  14. 100 poke198,0:wait198,1:getz$
  15. 102 z=val(z$):poke53280,12
  16. 104 onzgosub30000,30100,8300,8600,8810,9100,9200,9400,9710
  17. 110 poke53280,0:ifz=0then40000
  18. 190 goto100
  19. 8300 rem - froggy
  20. 8305 d=16:s=54272:pokes+24,15:pokes+6,0:pokes+1,100:pokes+5,2
  21. 8310 if(peek(162)andd)=dthenpokes+4,33
  22. 8315 pokes+4,0:getz$:ifz$=""then8310
  23. 8316 return
  24. 8600 rem *** auto horn ***
  25. 8610 s=54272
  26. 8620 forl=0to24:pokes+l,0:next
  27. 8630 pokes+6,220
  28. 8640 pokes+20,240
  29. 8650 pokes+24,15
  30. 8660 pokes+15,21:pokes+14,50
  31. 8670 pokes+1,26:pokes,50
  32. 8680 pokes+4,33:forx=1to100:next:pokes+18,33
  33. 8690 fort=1to1500:next:pokes+24,0
  34. 8699 forl=0to24:pokes+l,0:next:return
  35. 8810 s=54272:forl=0to24:pokes+l,0:next
  36. 8820 pokes+1,68:pokes+5,9:pokes+24,15
  37. 8830 forx=1to10:pokes+4,17:fory=1to500:next:pokes+4,20:next
  38. 8840 pokes+4,21:getq$:pokes+4,20:ifq$=""then8840
  39. 8850 pokes+24,0:return
  40. 9100 rem steam train
  41. 9110 poke54296,15
  42. 9120 d=450
  43. 9130 fora=1to300
  44. 9140 gosub9180
  45. 9150 ifd=45then9170
  46. 9160 d=d-5
  47. 9170 nexta:return
  48. 9180 poke54277,64:poke54278,48
  49. 9190 poke54273,50:poke54272,100
  50. 9191 poke54276,129:fort=1to10:nextt
  51. 9192 poke54276,128:fort=1tod:nextt
  52. 9193 return
  53. 9200 rem jet airplane
  54. 9210 d=50
  55. 9220 fora=1to15
  56. 9230 poke54296,a
  57. 9240 gosub9350:gosub9300
  58. 9250 nexta
  59. 9260 d=100
  60. 9270 forb=1to30
  61. 9280 gosub9350:gosub9300
  62. 9290 nextb:return:rem to main
  63. 9300 poke54277,15:poke54278,15
  64. 9310 poke54273,110+a:poke54272,185+a
  65. 9320 poke54276,33:fort=1tod:nextt
  66. 9330 poke54276,32:fort=1to10:nextt
  67. 9340 return
  68. 9350 poke54284,15:poke54285,15
  69. 9360 poke54280,10+a:poke54279,200+a
  70. 9370 poke54283,129:fort=1tod:nextt
  71. 9380 poke54283,128:fort=1to10:nextt
  72. 9390 return
  73. 9400 rem **** clock chime ****
  74. 9405 k=0
  75. 9410 s=54272:forl=0to24:pokes+l,0:next
  76. 9420 v=s+24:w=s+4:fu=s+1:fl=s:ad=s+5:sr=s+6:sl=s+14:su=s+15:pokev,15:pokead,15
  77. 9450 pokead,10:pokesr,64+11
  78. 9460 pokesu,10:pokesl,10
  79. 9470 pokefu,4:pokew,21:fort=1to50:next
  80. 9480 pokew,20:fort=1to1800:next
  81. 9485 k=k+1:ifk>5thenreturn
  82. 9490 goto9450
  83. 9710 fort=0to30:poke54296,15:poke54296,0:next:forp=1to500:next:return
  84. 10000 open1,8,15,"i0":n$="b.real sounds
  85. 10001 [152]1,"s0:"[170]n$:[160]1:[148]n$,8:[128]
  86. 29999 [143] light and thunder
  87. 30000 [129]l[178]54272[164]54296:[151]l,0:[130]
  88. 30010 s[178]54272:[151]s[170]24,15
  89. 30020 [129]i[178]1[164]5:[151]53281,1
  90. 30030 tq[178]ti
  91. 30032 [139]ti[179]tq[170]4[167]30032
  92. 30040 [151]53281,0
  93. 30050 tq[178]ti
  94. 30052 [139]ti[179]tq[170]4[167]30052
  95. 30060 [151]53281,0:[130]
  96. 30070 [151]s[170]5,28:[151]s[170]1,40:[151]s[170]4,128:[151]s[170]4,129
  97. 30080 tq[178]ti
  98. 30082 [139]ti[179]tq[170]120[167]30082
  99. 30090 [151]s[170]4,0:[142]
  100. 30099 [143] wind sound
  101. 30100 [129]l[178]54272[164]54296:[151]l,0:[130]
  102. 30110 s[178]54272:[151]s[170]24,15
  103. 30120 [151]s[170]5,255:[151]s[170]12,255:[151]s[170]19,255
  104. 30130 [151]s,255:[151]s[170]1,254:[151]s[170]7,98:[151]s[170]8,5:[151]s[170]14,90:[151]s[170]15,6
  105. 30140 [151]s[170]3,6:[151]s[170]2,1:[151]s[170]10,2:[151]s[170]9,12:[151]s[170]17,8:[151]s[170]16,0
  106. 30150 [151]s[170]4,129:[151]s[170]11,129:[151]s[170]18,129:[142]
  107. 40000 [129]i[178]0[164]21:[151]828[170]i,8[170]i:[130]
  108. 40010 [139]dv[179]8[176]dv[177]29[176]dv[178]8[167]40030
  109. 40020 a[178][194](828):b[178][194](828[170]dv[171]8):[151]828,b:[151]828[170]dv[171]8,a
  110. 40030 a$[178]"hello connect":[129]j[178]8[164]29:i[178][194](828[170]j[171]8):[139]i[178]14[167][130]
  111. 40040 [160]2:[159]2,i,2:[160]2:[139]st[167]40060
  112. 40050 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40070
  113. 40060 [130]:[153]"load":[151]53272,23:[151]186,8:[128]
  114. 40070 q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
  115. 40080 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
  116. 40090 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
  117.